home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Biz / swood / FW_Scripts.lha / FW_Scripts / Convert2PDF.rexx < prev    next >
OS/2 REXX Batch file  |  2004-08-15  |  2KB  |  59 lines
  1. /*
  2. FinalWriter AREXX macro
  3. Convert to PDF uses GHOSTSCRIPT ® to convert
  4. the current document to PDF format.
  5.  
  6. $VER: Convert to PDF 1.4 (15.08.04)
  7.  
  8. Original script by elal@dds.nl
  9. Download the original from Aminet for documentation.
  10. Archive is util/rexx/Convert_to_PDF.lha
  11.  
  12. Modified to work with A.F.P.L. Ghostscript 8.13
  13. located at http://www.whoosh777.pwp.blueyonder.co.uk/
  14.  
  15. Make sure your path is "GS813:bin/gs" or edit 
  16. the path below to match your setup.
  17. */
  18.  
  19. Options Results
  20.  
  21. GetPageSetup PageType
  22. PageSize = result
  23. PSPrintPrefs PageType PageSize
  24. IF PageSize = 'Custom' THEN DO
  25.     SetMeasure Micropoints
  26.     GetPageSetup WIDTH HEIGHT
  27.     Parse Var RESULT w h
  28.     PSPrintPrefs CustomWidth w
  29.     PSPrintPrefs CustomHeight h
  30.     w = w / 10
  31.     h = h / 10
  32.     SetMeasure Ruler
  33.     END
  34.  
  35. IF PageSize = 'USLetter' THEN PageSize = 'letter'
  36. IF PageSize = 'USLegal' THEN PageSize = 'legal'
  37. IF PageSize = 'A3' THEN PageSize = 'a3'
  38. IF PageSize = 'A4' THEN PageSize = 'a4'
  39. IF PageSize = 'A5' THEN PageSize = 'a5'
  40. IF PageSize = 'B5' THEN PageSize = 'b5'
  41.  
  42. PostscriptFile 'T:OK.ps'
  43. PrintSetup PRINTTO psfile
  44. PSPrintPrefs SHADE color
  45. Print
  46.  
  47. ADDRESS COMMAND
  48. 'Wait' 
  49. 'Delete' 'T:OK.ps.info'
  50. 'RequestFile' '>ENV:File' 'Title="Where to save the PDF file?"' 'Pubscreen="FinalWriterPubScreen"'
  51. IF rc ~= 0 THEN EXIT
  52. 'echo >T:Tmp' '"Stack 150000"'
  53. IF PageSize = 'Custom' THEN 'echo >>T:Tmp' '"GS813:bin/gs -sDEVICE=pdfwrite -dPDFSETTINGS=/printer -dDEVICEWIDTHPOINTS='||w||' -dDEVICEHEIGHTPOINTS='||h||' -dBATCH -dNOPAUSE -sOutputFile=T:KO.pdf T:OK.ps"'
  54. ELSE 'echo >>T:Tmp' '"GS813:bin/gs -sDEVICE=pdfwrite -dPDFSETTINGS=/printer -sPAPERSIZE='||PageSize||' -dBATCH -dNOPAUSE -sOutputFile=T:KO.pdf T:OK.ps"'
  55. 'Execute' 'T:Tmp'
  56. 'Delete' 'T:OK.ps'
  57. 'Copy' 'T:KO.PDF' '$file'
  58. 'Delete' 'T:KO.pdf'
  59. 'Delete' 'T:Tmp'